0 POKE 53280,2: POKE 53281,2
1 REM COMMODARES PROBLEM #29-2:
2 REM    GENERIC GAME
3 REM SOLUTION BY
4 REM    MARK BREAULT
5 REM
10 R%=RND(1)*10+48:FORI=1TON:ON-(Q(I)=R%)GOTO10:NEXT:N=N+1:Q(N)=R%:IFN<4GOTO10
20 INPUTA$:N=0:P=0:FORI=1TO4:FORJ=1TO4:IFQ(I)=ASC(MID$(A$,J))THENN=N+1:P=P-(I=J)
30 NEXTJ,I:K=K+1:PRINT"[145]",N","P,K:IFP<4GOTO20